R CMD BATCH week8.r
